home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / bamact.igb < prev    next >
Text File  |  1993-08-23  |  1KB  |  70 lines
  1. inst4.1     !Sept 2, 1992
  2. !****************************************************************
  3. !*                                *
  4. !*    BAM Layer Activities                    *
  5. !*                                *
  6. !****************************************************************
  7. !
  8.  
  9. @LLsl                !Load super-layer
  10. =n6    Lpes            !Number of layers
  11. =LayN    0
  12. =n5    0
  13.  
  14. :BAMOLp                !Outer loop
  15. +n5    1
  16.  
  17. !Look for a BAM layer
  18. :BAMILp                !Inner loop
  19. +LayN    1            !next layer
  20. ?LayN    n6
  21. >bgt    BAMEnd            !past output layer
  22. @LLly                !load the layer
  23. ?Ltrn    "BAM"            !BAM transfer function?
  24. >bne    BAMILp            !no, try again
  25. !
  26. =PNam    "BAM"            !probe name
  27. +PNam    n5
  28.  
  29. ! Add probe
  30. =NPEl    LayN            !point to layer
  31. @PbAS                !Add Probe
  32. @PbDC                !Delete all components
  33. @PALy                !Add Near Layer to Probe
  34.  
  35. ! Now build the instrument
  36. @ILdD                !load default instrument
  37. =ITit    PNam            !Instrument title
  38. =IGTy    "Matrix"        !Graph Type
  39. =IGVr    "Out"            !Variable
  40. =ITTy    "RMS"            !RMS Transformation Type
  41. =ITMd    0            !No transformation
  42. =IEpc    0            !No epoch
  43.  
  44. =n0    Lpes            !#PEs in F1 layer
  45. =n1    LDnr            !#rows in display
  46.  
  47. ! standard bar graph parameters
  48. #Incl    "barparms.iif"
  49.  
  50. =Ivmn    -1.0
  51. =Ivmx    1.0
  52. =ILnA    0            !Inactive in Learn
  53. =IRcA    1            !Active in recall
  54. =ILDv    1            !Every iteration
  55. =ILRm    0
  56. =IRDv    1            !Every recall cycle
  57. =IRRm    0
  58. =IPrb    PNam            !Point to probe
  59. =ICAc    0            !Convergence criterion inactive
  60. =ICTh    0.0            !Convergence Threshold
  61. !Let NeuralWorks figure out where to put instrument
  62. =x    0
  63. =y    0
  64. @IAdd                !Now create instrument
  65. !
  66. ?n5    1
  67. >ble    BAMOLp            !Do next BAM layer
  68.  
  69. :BAMEnd
  70.